home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 1
/
Gold Medal Software Volume 1 (Gold Medal) (1994).iso
/
menuts
/
batmouse.arj
/
DIRECTOR.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-08-20
|
5KB
|
231 lines
@echo off
set scrn=on
if not x%menu%==x goto MAINMENU
goto more1
rem REPLY.COM SETS THE CORRESPONDING DECIMAL VALUE OF THE ASCII
rem KEY PRESSED INTO THE DOS ERRORLEVEL REGISTER -----
rem F1=59, F2=-60, F3=-61, F4=-62, F5=-63, y=121, Y=89, N=78, n=110, ESCP=27!
:PAGEDOWN
if %menu%==1 goto more2
if %menu%==2 goto more3
goto more1
:PAGEUP
if %menu%==1 goto more3
if %menu%==2 goto more1
goto more2
:more1
set menu=1
goto mainmenu
:more2
set menu=2
goto mainmenu
:more3
set menu=3
:mainmenu
c:
REM CD \ ----- REINSTATE THIS LINE TO USE SYSTEM IN ROOT DIR
CURSOFF
if %scrn%==on goto scn
GOTO %menu%
:1
echo %6;%7m
echo 4H WORD PROCESSOR
echo 4H POWER MENU
echo 34H NETWORK LOGIN
echo 34H FORM TOOL
echo 34H HIJAAK
echo 34H BUSINESS SYSTEM
echo 34H PAINT BRUSH
echo 34H
echo 8H1/3
GOTO ENDSCR
:2
echo %6;%7m
echo 4H SCREEN PAINTER
echo 4H WINDOWS
echo 34H SOLITAIRE
echo 34H BASIC
echo 34H MODIFIED BACKUP
echo 34H NORTON UTILITIES
echo 34H GAMES MENU
echo 34H
echo 8H2/3
GOTO ENDSCR
:3
echo %6;%7m
echo 4H AUTOCAD
echo 4H XTREE
echo 34H ACCOUNTING
echo 34H SET BACKUP DATE
echo 34H TAPE BACKUP
echo 34H ZIP PROGRAM
echo 34H DISK LABELS
echo 34H
echo 8H3/3
:ENDSCR
echo
CURSON
:REENTER
BATMOUSE
if not %vc%==- goto mouse
if errorlevel 72 if not errorlevel 73 goto help
if errorlevel 104 if not errorlevel 105 goto help
if errorlevel 68 if not errorlevel 69 goto pagedown
if errorlevel 81 if not errorlevel 82 goto f9
if errorlevel 27 if not errorlevel 28 goto F9
if errorlevel 67 if not errorlevel 68 goto F9
if errorlevel 113 if not errorlevel 114 goto F9
set scrn=on
if errorlevel 66 if not errorlevel 67 goto F8%menu%
if errorlevel 65 if not errorlevel 66 goto F7%menu%
if errorlevel 64 if not errorlevel 65 goto F6%menu%
if errorlevel 63 if not errorlevel 64 goto F5%menu%
if errorlevel 62 if not errorlevel 63 goto F4%menu%
if errorlevel 61 if not errorlevel 62 goto F3%menu%
if errorlevel 60 if not errorlevel 61 goto F2%menu%
if errorlevel 59 if not errorlevel 60 goto F1%menu%
set scrn=off
goto badkey
:mouse
if %hr%==1 goto pageup
if %hr%==25 goto pagedown
if %hr%==2 goto pageup
if %hr%==24 goto pagedown
if %hr%==3 goto pageup
if %hr%==23 goto pagedown
if %hr%==21 if %vc%==62 goto HELP
if %hr%==22 if %vc%==62 goto F9
if %hr%==22 if %vc%==63 goto F9
if %vc%==31 goto callprog
if %vc%==32 goto callprog
if %vc%==33 goto callprog
if %vc%==34 goto callprog
if %vc%==35 goto callprog
if %vc%==36 goto callprog
if %vc%==37 goto callprog
if %vc%==38 goto callprog
if %vc%==39 goto callprog
if %vc%==40 goto callprog
if %vc%==41 goto callprog
if %vc%==42 goto callprog
if %vc%==43 goto callprog
if %vc%==44 goto callprog
if %vc%==45 goto callprog
goto badkey
:callprog
set scrn=on
if %hr%==7 goto F1%menu%
if %hr%==9 goto F2%menu%
if %hr%==11 goto F3%menu%
if %hr%==13 goto F4%menu%
if %hr%==15 goto F5%menu%
if %hr%==17 goto F6%menu%
if %hr%==19 goto F7%menu%
if %hr%==21 goto F8%menu%
:badkey
echo
set scrn=off
goto REENTER
:F11
WS2
goto MAINMENU
:F21
SET PROGTODO=PWR
goto END
:F31
SET PROGTODO=LI
goto END
:F41
SET PROGTODO=FORM
goto END
:F51
SET PROGTODO=HIJ
GOTO END
:F61
SET PROGTODO=FOTO
GOTO END
:F71
SET PROGTODO=PB
GOTO END
:F81
goto MAINMENU
:F12
SET PROGTODO=SAY
GOTO END
:F22
cd \windows
win
goto MAINMENU
:F32
SET PROGTODO=cards
GOTO END
:F42
SET PROGTODO=MORT
GOTO END
:F52
SET PROGTODO=BACKEMUP
GOTO END
:F62
CALL norton
goto MAINMENU
:F72
cd \GAMES
call GAMESMNU
GOTO MAINMENU
:F82
goto MAINMENU
:F13
SET PROGTODO=ACAD
GOTO END
:F23
\MISC\XTREE
goto MAINMENU
:F33
SET PROGTODO=QB
GOTO END
:F43
c:\tnc\db3\chngbkup
goto MAINMENU
:F53
CALL \tapesyst
goto MAINMENU
:F63
CD \PKMENU
CALL PKZMENU
CD \
goto MAINMENU
:F73
CD \DSKLIST
CALL DISKLIST
CD \
goto MAINMENU
:F83
goto MAINMENU
:HELP
SHOW HELP
BATMOUSE
:SCN
set scrn=off
echo H
echo
SHOW DIRSCN%1
echo %2;%3m
echo H░░░░░░░░░░░░░░░░░░░░░ P E R S O N A L D I R E C T O R ░░░░░░░░░░░░░░░░░░░░░░░
echo %4;%5m
echo 0H F1
echo 0H F2
echo 30H F3
echo 30H F4
echo 30H F5
echo 30H F6
echo 30H F7
echo 30H F8
echo 61H H - HELP
echo 61H F9 - EXIT TO DOS
echo 61H F10 - PAGE DOWN
GOTO %MENU%
:F9
SET PROGTODO=CLS
:END
%PROGTODO%